COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "AER"
C00005 ENDMK
C⊗;
BEGIN "AER"
  REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
  INTEGER BRCHAR,EOF,FLAG,ISTART,JSTART,I,J,II,JJ;  STRING OFL,OFLT,INFL;
     BEGIN
     INTEGER ARRAY P[0:PIXDIM(256,256,9)];

     MAKPIX(256,256,9,P[0]);
     OPEN(0,"UDP2",8,2,0,1,BRCHAR,EOF);
     DO BEGIN OUTSTR("INPUT FILE: ");LOOKUP(0,INFL←INCHWL,FLAG) END UNTIL ¬FLAG;
     CLOSE(0);

     OUTSTR("OUTPUT FILES:"); OFLT←INCHWL;
     OFL←"";
     WHILE OFLT≠"*" DO OFL←OFL&LOP(OFLT);
     I←LOP(OFLT);
     CLOSE(0);

     FOR II←0 STEP 1 UNTIL 3 DO
     FOR JJ←0 STEP 1 UNTIL 3 DO
        BEGIN
	DEFINE CRLF = "('15&'12)";
        INTEGER I,J,A,B,X;
        OPEN(0,"UDP2",8,2,0,1,BRCHAR,EOF);
        LOOKUP(0,INFL,FLAG);

	PRINT(" STARTING TO WORK ON PICTURE ",II,JJ,CRLF);
        FOR I←0 STEP 1 UNTIL 255 DO
           BEGIN
           USETI(0,((II*256+I)*512+JJ*128)%128+1);
           FOR J←0 STEP 2 UNTIL 255 DO
              BEGIN
              X←WORDIN(0);
              A←((X+'20000000) LSH -23) XOR '777;
              B←((X+'100) LSH -7) XOR '777;
              PUTEL(P[0],I,J,A); PUTEL(P[0],I,J+1,B);
              END;
           END;
        CLOSE(0);
        PUTPFL(P[0],OFL&CVS(II)&CVS(JJ)&OFLT);
        END
     END;
END;